UC知道[求助][VisualBasic]子程序或函数未定意?
来源：百度知道 编辑：UC知道 时间：2024/05/23 14:41:34
模块中写了一个子函数TURN,但却在用TURN调用的时候显示"子程序或函数未定意".我是菜鸟,刚学到模块不知道这是怎么回事,请教各位大哥一下!
TURN的代码如下:
Sub TURN()
Dim start
Dim i
i = 1
start = Timer
start: If i >= 10 Then
Exit Sub
Else
Do While Timer < start + i
DoEvents
Loop
a(i) = a(0)
b(i) = b(0)
i = i + 1
GoTo start
End If
End Sub
还有,我是在其它过程中直接用:
TURN
引用的.在通用声明中声明了:
dim a(10)
dim b(10)
并且在后续步骤中给a(0)和b(0)都赋值为0.
TURN的代码如下:
Sub TURN()
Dim start
Dim i
i = 1
start = Timer
start: If i >= 10 Then
Exit Sub
Else
Do While Timer < start + i
DoEvents
Loop
a(i) = a(0)
b(i) = b(0)
i = i + 1
GoTo start
End If
End Sub
还有,我是在其它过程中直接用:
TURN
引用的.在通用声明中声明了:
dim a(10)
dim b(10)
并且在后续步骤中给a(0)和b(0)都赋值为0.
你需要在定义 Turn 的过程所在的模块中定义 a,b 两个数组，如果是在其他公用模块中定义的，需要使用Public关键字，而不是Dim。
另外，最好给每个变量指定类型，这样程序执行效率会更高。
Timer未定义